;压缩BCD码转换成ASCII码
dseg segment
    bcd db 86h
    ascii db 2 dup(0)
dseg ends

cseg segment
    assume cs:cseg,ds:dseg
start:
    mov ax,dseg
    mov ds,ax

    mov al,bcd
    and al,0fh
    add al,30h
    mov ascii+1,al

    mov al,bcd
    mov cl,4
    shr al,cl
    add al,30h
    mov ascii,al

    mov ah,4ch
    int 21h
cseg ends
end start